home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
001-025
/
disk_024
/
modula-2
/
m2
/
breaks.def
< prev
next >
Wrap
Text File
|
1992-05-06
|
622b
|
22 lines
(********************************************************************************
Name : Breaks.DEF
Version : 1.0
Purpose : user break detect
Authors : cn/jr/ms/red
Modified : 13.3.86 10:00 ms
State : untested
Requirements :
********************************************************************************)
DEFINITION MODULE Breaks;
TYPE BreakFlags = (breakC, breakD, breakE, breakF);
PROCEDURE DetectBreak(flag: BreakFlags): BOOLEAN;
(* DetectBreak returns TRUE if the requested break flag is set.
The tested flag is always cleared! *)
END Breaks.